TOL ZSoO CP/M DISK ASSEMBLER VERSION ze zl FAGE 1 
FORMAT — JADE DOUBLE 0 
TITLE FAGE 


SHHKHHKRKHHKKRHHHHHHHHRKRHKHKRHKHHHKRHERREHHHHRHRKRRHHHHHEHHHRREHHRHREH 


; # 
; FROGRAM IDs FORMAT # 
s క 
7 HHHHHKHKHHKKRKHHKHKHKHHHRKHKHHRKRHHHHHHHKRHHHRRHKRHHHHRHRHHRERRHHEHRE 
3 + 
? 
5 PRESENTED BY: JADE COMPUTER PRODUCTS = 
3 4701 W. ROSECRANS BLVD. # 
5 HAWTHORNE, CALIFORNIA # 
3 FOES శే Ll a S u fa a ¥ 
; # 
5S HHHKHKRHKRKHKHHRHKRKRHRKRHRHRKRKRKHKEKRHHRHRHRHRHRHHKHRHEHRKHEHRHREREE 
5 # 
5 VERSION: Ces Bae RELEASE <A # 
3 # 
SHHHHKKKRKKRKRHHKHHHHHHKRHKRERHRKRKRKKRKRHRKRKHHHKRHRRRKHRHRHHHHKHHHHEEEEH 
5 3 
; WRITTEN BY: STAN KRUMME # 
* 


SS SS 


HHH HHH HH EHH HH HH HHH HHH HHH HH HH HH HH HHH HHH HH 4 HH HH HH HE HH Hf 3 
FORMAT IS A SYSTEM UTILITY WHICH FROVIDES A MEANS +# 
TO WRITE A SINGLE OR DOUBLE DENSITY FORMAT ON ANY # 
QF DRIVES A THROUGH DO. THIS UTILITY ALSO PROVIDES # 
A COPY-SYSTEM-TRACKS FEATURE. THIS I5 A USEFUL * 
FUNCTION FOR FORMAT AS THE SYSTEM TRACKS CAN BE # 
WRITTEN WITH THE OFERATING SYSTEM WHEN FORMATTED. * 
FORMAT IS S080/S083/Z50 COMPATABLE. క 

HHEREHHE HHH HH HEE HHH KH HEH HHH 4H HH HK HHH KKH 4K KH HH KKH HK 


28 88 SS swe CR we we SS 


HHEHHHHKHHHKHHKKEHHERHRERHERHREERHEHHRHEHHRHRHHHEHHEEHHHEEEREHE 
FORMAT INJECTION MODULES ARE COMMAND COMPATABLE WITH# 
THE FOLLOWING WESTERN DIGITAL CONTROLLER CHIPS. +# 
DOUBLE DO USER SWITCH O (LIO OR RO) MUST BE SET To # 
INDICATE THE CONTROLLER CHIF DATA BUS POLARITY. # 

HEHKHHHHHHHHHHEHHHHHKHHERREHHRHHHERHRKHRHHHREHRHHKEHHEHHEEHEHE 


CONTROLLER IC USER SWO శ 
crave eesee onsen (చరక evens cenee అంధక. conse ఎం౭96 cues cones cores coms అధకలా tee ఆంటి cane nonce అలంలం cence meee Cry 
Pie eascee (Of) CLOSED # 
FDI793-02 (01) OPENED % 
FOL/ 935-02 CLOSED % 
POL73 7-02 OFENED * 


82 88 JS 88 382 VR V2 SS BR VRE SBR WR we 


HEHEHE HH HH HEHEHE HEE EEE HEHEHE EERE HK 


| HHHHHHRHHHRHHHEHHHEHHHHHHEHHHEHHHRHHEHHHHEHHHRRHHREHHHERHHEHE 
5 RELEASE 2A: SINGLE AND DOUBLE SIDED DRIVES CAN BE 
5 FORMATED. INSPECTION OF TWO SIDED# SIGNAL FROM THE 
5 DISK ORIVE DETERMINES NUMBER OF SIDES. WITH DOUBLE 
5 SIDED DISKETTES, BOTH SIDES FORM ONE LOGICAL DISK. 


జా జు క్ల ee 


EACH DOUBLE DENSITY TRACK NOW CONTAINS SO SECTORS. 
HHEHHHKKHHHHKHHHHKHHHHHEHKHRERHHKHREHHRHHEHRHEHHHEHHHHEREHES 








TOL 220 CF/M DISK ASSEMBLER VERSION 2.21 PAGE 2 
FORMAT ~- JADE DOUBLE 0 
PROGRAM EWUATES 


5 HHHHHKHKRKHHKHKRHHHKHKREKRKHHHKHHHHRKRRHKRKRKHRHHRKKRHRHKHKRHHRKRHRHHRHHEHEE 


5 DRIVER MODULE DEFINITIONS + 
SF EHHHHHHKKHHKHKAHKHHEHHHKRHHKKRHHHEEHRHHKKHERHKREHEHHRHRHKEHHHEE 


౧౦౦గ LF జ O0AH ASCII LINE FEED. 
COOOL CR as OODH ;CARRAIGE RETURN. 
OO024 ECIM sacs “$* SSTRING TERMINATOR. 
Q100 TFA = OLQOOH 5 TRANSIENT FROGRAM. 
0000 TRE. © moss 0 TRACE Oo. 
0001 TRE. 1 వజ 1 TRACE 1. 
0007 TRE. 2 mo జ TRACE =. 
O00) GEC GZ == 125 lz BYTES FER SECTOR. 
OOO] IL SEL == 1 IMD SECTOR NUMBER. 
0000 REBOOT == 0 SREECGT ADDRESS. 
0001 BS.PTR == OOO1H SWARM ADDR POINTER. 
0001 NO LOG == OH sREGUEST NO LOG—CN. 
OOFE FT.ERC == 111111108 FORMAT ERROR MASE. 
0001 FT, TEM == QOQQ0O001B8 TWO SIDED MASK. 
3 PMHHRKKEHKRHKEHHKHKHKHHHHHKHHHHRHHHHKHHREHHHHHRHHKRHKHHKHHKEHRHKHHHHEHHHHHHHREH 
5 INJECTION MODULE DEFINITIONS # 
5 MHKRKFHREKKHKHKHHKHKHKEHKHHHKHKHKRHKHHKHHHRHKHHHHKEHHKRHEHKRKHKHHKHHHKHHHHHHKHHKHHHHE 
1700 FMT.EA == 1700H FORMAT EXEC ADDRESS. 
0005 WL, TRE == QO3H SOOUBLE D TRACK FORT. 
0007 WL, DITA == O0O7H SDOQUBLE 0 DATA FORT. 
O00 XP.O0SH == SOH SDATA SYNC HOLD PORT. 
OOOO ZEROS son at OOQOQQ000BR 7;ALL ZERO BYTE. 
QOFF ONES ans 111111115 ALL ONES BYTE. 
7 HKRHKHHHKKHKRKHRHKRHKRKKRHRHRHKKKKKKRKHKHHHHHHKHHRHKKRHHHHHHHHHREREEHE 
>; BOOS CALL ~ VECTOR NUMBERS # 
Ss CEERI 
0005 BOOS fs Ris QO0O3H SYSTEM CALL ADDR. 
O00? BC.FPTX == OOVH 7FRINT STRING CONSOLE. 
QO0A BC RCE == OOAH READ CONSOLE BUFFERD. 
> HHEHKHKRKRHEKHHHHKHEHKHKHHHKHKHHKHHHKKHKRHKKRHHKHHRHRHHRHHKRHRHKHHHREKREHEHHRHEEE 
5 ASSEMBLER DIRECTIVES # 
SHHHHKHKHHHHEHHEHHEEKRHHHRHRKEHKRHERHREHREKHHRERHKRERHREHEHHERHEHE 
. [2080 
»FPABS 
« FHEX 
» KLINE 
O100 LOC TFA 


5 HEHEHE HHH 


TOL Z80 CF/M DISK ASSEMBLER VERSION 2.21 PAGE 3 
FORMAT — JADE DOUBLE 0 
FROGRAM START 


S HEH HHHKEHRHHEHRHRHKERHHHEHHHEHHKHHRERHHHRERHHEEHHHHHEEHS 
5 PROGRAM BEGINS # 
SHEHHEHPHRKKRHEHHHREEHHKEHHHHKRHHKERHHHHREHHHHEHRHHHHHHHHHEEHEES 


O146 BEGIN: IMF INIT Gc To INITIALIZE. 


fe 


O100 [= 


SHEHKEKHHKEHHHKEEHKKEKHRERHHERHHEHRHHHEHEHHHHEHHHKRHHHEE 
5 ASCII IDENTIFICATION INSERT # 
SHHEHHEHHHEEHHERKE RHR EHKERKERHERHHEHHREHRHHERKHHHHEHREEHEE 


O103 AA41 44452043 ASCII “JADE COMPUTER FRODUCTS 
O1LIA 444F 342445 ASCII “DOUBLE O ~ FORMAT &" 
OL2ZF 64 SSSI S4 VAP ASCII “VERSION 2.2 RELEASE 2A 


SREHHHKHKEHEEHHHEKKERHRHHKKEERHHHKKEERRHKRHHHHKHEEHRHRHHEHHEEEE 
5 SET STACK POINTER AND ISSUE LOG-ON # 
SHHEHKKEHKHRRHHKEKHHKEHHKEERKKHRHKERRHHHKEEEHKEKERHHRHEEERHEE 


O146 31 O300 INIT: Lx SF sor. TOP GET STACK POINTER. 


O14? 11 O716 Lx Li, MEG. BG SLOAL MESSAGE ADDR. 
O14C CD 0297 CALL MSG. OT ;ISSUE MESSAGE. 


S HHHEHHEHHREKREHHKEKKHEHKEHRHKEREEHHEEHKRERHRERHERRHREEREER 
5 LOAD BIOS VECTORS JUMP TABLE — WARM THRU FORMAT # 
S EHH KHKHEKKEEHHEKKEEKHERKERKEHHHERREERKEERKERHHKERREEH 


O14F Ol 0033 LXI BBS. Vaz SET BIOS VECTORS SIZE. 
O1S2 ii O2A4 LXI Li, Es. WRH SET FORMAT TABLE. 

Ola 2A 0001 LHLD BS.PTR SWARM VECTOR POINTER. 
O13 CD O2D7 CALL BR. MOVE BLOCK MOVE VECTORS. 


FS HHHHHHEHHHHHHHHHKHEHKKHKHHERHHHEEHHRHRERHKRHEEHHKHERHRHEHRERHH 
>; SELECT DRIVE TO FORMAT ON # 
S REHHHHHKHHHRRHKHEHRHHHKHHKHKHHRHKKERHKKHHERHKKEHRHHREHHRKHRHHEHEH 


O13B 21 0781 LXI Hs MSG. FL 5FORMAT ON DRIVE MEG. 
OLSE CO 0485 TALL SEL. DR CALL SELECT DRIVE. 
O161 su O40DF STA FO. NER FORMAT DRIVE NMBR. 


5 HHKKKKHKHKHKHHKRKKKRHRRKHKHRRKRKKHKRKEKRHRKHKHHHKRHEHKRHHHKKRHRHREE 


TOL 230 CF/M DISk 


FORMAT — 


PROGRAM 


O164 
O167 


OLGA 
QO1é60 
O170 
O17 
O176 
QO17s 


O17B 
QL7E 
SRE 
Ole 
O11 
Ol 
O1SA 
Oleg 
QO1SF 
Oli: 
O1v4 
O1%7 
O1?y 
OL?C 
O1L?E 


QL1Al 
O1A4 
QO1A7 


11 O7BR 
Co ony? 


ii OsF4 
CO O27 
CoO o2ercd 
3A O80] 
FEO 

C2 O1464 


3A O802 
FES1 
CA O1AA 
FES? 
CA oro 
FESS 
CA O102 
FES4 
CA OLEB 
FESS 
CA O250 
FEZA 
CA O238B 
FE27 
CA 04CC 


11 OA 
Co O27 
Cs 0164 


ASSEMBLER VERSION 2.21 
JADE DOUBLE Oo 
= TART 


FAGE 4 


SHHHHHKEHHKRKHKKEKHKHHKHRHKERKEHHKERKERHHHERHHRHRHRERHHREHHEE 
5 DISPLAY FUNCTIONS LIST # 
SHHEHHHHKKHRHKKEHHHHKEHHHREHKEHHKREHKEHHHREHKERHHEHRERHHHE 


LIST: LXI Lo MSG. FL 


SFUNCTICNS MSG ADDR. 
CALL MSG. OT 31 


SSUE THIS MESSAGE. 


SHHHREHHEKHHKRHHKEHHHHKHHKERHEHKKERKHHRRKHKHHKHHHHHHHHHEHHEHE 
> INQUIRE SELECTION % 
SHHHEEHRHEHHKHHKEHHHHHHEHHHEHKEHHHERHERHKHEHHEHHHHEHHHHEHHHE 


SELECT: LXI Lo MSG, SF SELECT FUNCTION MEG. 
CALL MSG. OT 7;ISSUE THIS MESSAGE. 
CALL CNS. IN GET CONSOLE CHARACTER. 
LOA Ril. NBR LOAD BUFFER SIZE. 
CFI 1 SCHECE FOR 1 CHARACTER. 
IN Z SELECT SOOTHER THAN 1 Tod BAD. 


| HHEHKEMKEKEHHKKRERK RHE RKHEKERKERKERKREHERHRKEHKHHKRKHEHRERE 
5 SELECT FUNCTION DRIVER # 
5 EHEHEHHHPHHKEHHEEHKHERKERHHRKERHERKEEHHRERKERKERKERKEHKEHREH 


LDA RC. TXT+O LOAD CONSOLE CHAR. 
CPI mye 
JZ FUN. 1 SFMT DOUBLE DENSITY. 
CPI ios 

Jz FUN. 2 FMT SINGLE DENSITY. 
CPI #3" 

Iz FUN. 3 FMT 3740. 

CPI "4" 

IZ FUN. 4 READ SYSTEM TRACKS. 
{FE 1 88 pan ie 

JZ FUN, 5S WRITE SYSTEM TRACKS. 
CPI UU 3 Ft 

JZ FMT. ST FORMAT SYSTEM TRACKS. 
Ce I ga.” 68 

Jz RST. 7 DDT TRAP. 


FS HHEHHHHEHHEHEEHHERHRHEHERHERHHEHKEKEHRHRKEHKEHRHREHHREHHREHHEH 
5 MUST BE A BAD CHOICE # 
FHHHHKHHEHKKHHEHKHRERHEHKERKEHHEHEKRHERHRERHHHHEHRHRHHEHHEH 


LXI D,MSG. SE SELECT ERROR MESSAGE. 
CALL MSG.OT 5 ISSUE MESSAGE. 
IMF" LIST SLIFLAY LIST AGAIN. 


5 HHHHHHKHHKKRKRHKHKRKKRKRKRKKRHKRKKHHEHRHHRHHRHKHHKHHHKHHRHRHHHHHRHEHEREH 


TOL Z80 CF/M DISK 
FORMAT ~ JADE DOUBLE 
FUNCTION CONTROLLERS 


O1AA 
O1AD 
OL1BO 
OLE? 
Q1BS 
O1BS 
QO1BE 
O1BD 
O1cO 
O1C3 
O1C4 
o1c? 
OIC: 
O1CF 


O1oS 
O104 
O107 
Ol Li» 
OLLC. 
OLOF 
O1E2 
O1ES 
O1ES 


Q1EB 
QO1EE 
QOLF1 
O1F3 
O1FS6 
O1F? 
OLFC 
OLFF 
O200 
0202 
O205 


3A 0647 
22 O4fC 
SEQO 

32 O40% 
CO O318 
C2 O25E 
SEO1 

se O40 
CD Os2i 
C2 O2SE 
CO O279 
CA O1CO 
CO OZF 2 
Ca O16A 


SEOO 
32 O400 


CO OS1K8 
C2 OE 


CD 02797 


21 OVOE 
Co 0485 
Ke 3 ade We 

32 0404 
oe O4DD 
CO O3S5 
3A O40F 
4F 

LEO] 

CO OFEC 
C3 O16A 


Li 


ASSEMBLER VERSION 


జో : : : 
2° °° 
by 


PAGE 3S 


SHHEHKHHHKEHEHEHKEREREKEHHERKRERRRKERKERKEHREREREHHREHRERHEEHE 
— FORMAT IN DOUBLE DENSITY # 


5 FUNCTION 1 


REEL HHH HEHEHE KKK EHH HH HHH HEH HH KH 


FLIN. 1: 


ee REPT: 


ID: 


LIA 
STA 
MV I 
STA 
CALL 
NZ 
MVI 
STA 
CALL 
NZ 
CALL 
AZ 
CALL 
IMF" 


LIL. FLG 
Fe FLAG 
A» TRE. 0 
TRE. NU 
FMT. SU 
TRE. ER 
As TRE. 1 
TRE. NO 
FMT. DD 
TRE. ER 
TRE. NX 
REPT 
WOO. IL 
SELECT 


LOAD OOENS FLAGS. 
;STORE FORMAT FLAGS. 
TRACE Q. 

7SET TRACK NUMBER. 
FORMAT TRACK SDENS. 
SJUMP ERROR DETECTED. 
7; TRACK 1 VALUE. 

EET TRACK NUMBER. 
FORMAT TRACK DODENS. 
;JUMP ERROR DETECTED. 
SET FOR NEXT TRACK. 
s;FORMAT NEXT TRACE. 
SWRITE DDENS IL SECTOR. 
SELECT NEW FUNCTION. 


> HHKHKHKKKKKKHKRRKKRHKKKRKKRKKKKKRKHRRKRRHKRHRRKRKRHEKRRRRHKRREREE 


$ FUNCTION: 3 


—- FORMAT 


o TANDARD 


2740 ~ SINGLE SIDED # 


SHHKHHKHHKHHHHHKHKHKHKHKHKRKEKHKHKKHHHHKHHRHKHKKHHHHHKREKRHHKHRERHEHE 


FUN. 3: 


« «REPT S 


MVI 
STA 
MVI 
=TA 


CALL 


INZ 


CALL 


lL 
IMF 


AO 

Fe. FLAG 

A» TRE. 0 
TRE. NO 

FMT. SLi 

TRE. ER 

TRE. NX 

. REPT 

SELECT 


727/40 SDENS FLAGS. 
STORE FORMAT FLAGS. 
TRACE 0. 

SET TRACK NUMBER. 
;FORMAT TRACK SDOENS. 
;JUMP ERROR DETECTED. 
;SET FOR NEXT TRACE. 
FORMAT NEXT TRACE. 
;SELECT NEW FUNCTION. 


FHHHHHHHHHHHHHHHERHERRHEREKHEHHHRKER EKER ERKREREHEREHHERREREE 
> FUNCTION 4 — READ SYSTEM TRACKS * 
5 HHHHEHHHHKHHHHHHHHEHEKEHHEHHHKHKERERHRHRHREREHERRHREREHEE 


FLIN. 45 


LXE 


CALL 


MVI 
TA 
STA 


CALL 


LIA 
MOV 
MVI 


CALL 


IMF 


Hs MEG. KS 


SEL. DR 
Ae RO 
TF.DIR 
oYS. RF 
TRNSFR 
FO. NBR 
Cy A 


E> Na. LOG 


BS. DSK 
SELECT 


7;READ DRIVE Msc. 
7SELECT READ SYS ORV. 
7READ TRANSFER CODE. 
SET TRANSFER DIRC. 
GET SYSTEM READ FLAG. 
REAL SYSTEM TRACKS. 
;GET FORMAT ORV NMBR, 
PUT INTO C REG. 
INSURE NO LOGON. 
7;BICS SELECT DISK. 
sRESELECT FUNCTION. 


> HHHHHEREHRHH KKK HH HHH HH KH HH HH HH HH HH HH 4 4 HH KH HH 4 KH KH HH HHH KH 


TOL 230 CR/M DISE 
JAE DOOUBLE 
FUNCTION CONTROLLERS 


FORMAT — 


Cra Chat 
OZ0B 
OZ0E 
OZ10 
O21 
OZ16 
O21? 
O21B 
OZ1E 
o221 
o224 
0226 
0229 


O22C 


O2SEB 
Ox IE 
O41 
Ox 4s 
O46 
O24 
O24 
O24E 
Ol 
O2354 
O257 


O25A 


3A 
SEO 


Co 
Cz 
SEO 
i 
LZ 
SEO 
mS 
CO 


ie a 


CO 
CA 
Co 


2 © 
bs 


Pa Ti ba I 


oe 


CH 


ls 


SEQ 


a4 7 
O40C 
Q 

O40 
OsS1B 
OE 
1 

O40% 
Cail 
OE 


శీలం 


* OAL 


O31B 
O2GE 
O277 
O229 
OOZES 
OLGA 


O247 
O44 Oe 


OO 


O40 
OS1B 
O2SE 
1 

OAL 
Os21 
OSSE 
O2ZES 
OLGA 


Li 


ASSEMBLER VERSION 2,21 


FAGE 4 


SHHHHHKKKHHHKHHKHRHHHHHHERHKHKHRKERHHRHHHHHRHERHRHRHHHHEEE 
5 FUNCTION 2 
| HHHHKKHKEHRHHHHKKKHKHHKKERHHKKERERHHHHHHHHEREHEHHHHHRHEEEE 


FUN, ws 


. REPT: 


»e IDE 


LIA 
STA 
MV I 
STA 
CALL 
NZ 
MV I 
STA 
CALL 
NZ 
MVI 
STA 
CALL 
NZ 
CALL 
hz 
CALL 
MF 


- FORMAT IN 


SD.FLG 
F.FLAG 
A» TREO 
TRE. NO 
FMT, SU 
TRE. ER 
A TRE. 1 
TRE. NO 
FMT. OD 
TRE. ER 
A» TRE. 2 
TRE. NO 
PMT.30 
TRE. ER 
TRE. NX 
oeREPT 
WSL. IL 
SELECT 


SINGLE DENSITY # 


LOAD SOENS FLAGS. 
STORE FORMAT FLAGS. 
7; TRACE 0, 

EET TRACK NUMBER. 
FORMAT TRACK SDENS. 
JUMP ERROR DETECTED. 
5 TRACK 1 

GET TRACK NUMBER. 
7;FORMAT TRACK DODENS. 
JUMP ERROR DETECTED. 
TRACE 2. 

EET TRACK NUMBER. 
FORMAT TRACK SDENS. 
7; JUMP ERROR DETECTED. 
SET FOR NEXT TRACE. 
FORMAT NEXT TRACE. 
WRITE SOENS ID SECTOR. 
SELECT NEW FUNCTION. 


HHEHKHEHKHHRHKHEHHHEHKHHKEHKERHKHRHHKRHKEHAK EHH EHHKRHRRHEESE 
FUNCTION — FORMAT JADE SYSTEM TRACKS # 
HHEKKRHKHKHKHRHKHERKEHHERKEEHKERKERKKERHKERRRRHKKHEHHERHEEE 


> NON DOCUMENTED 


5 LISED 


FOR 


SFPECTAL FURFOSE ~ NOT NEEDED BY END USER # 


HHH HH EHH HH HH HHH HHH HH HEH HH HH HH HH HH 4 EH #4 4 4 4H HH HH 4 HHH HHH KH HH 


FHT. Ts 


LOA 
STA 
MV I 
ETA 
CALL 
NZ 
MVI 
STA 
CALL 
INZ 
CALL 
IMF 


SO. FLG 
F.FLAG 
A, TRE. 0 
TRE. NO 
FMT. SI 
TRE. ER 
A,TRE.1 
TRE. NG 
FMT. DD 
TRE. ER 
WSU. IL 
SELECT 


LOAD SDENS FLAGS. 

7S TORE FORMAT FLAGS. 
TRACE QO. 

EET TRACK NUMBER. 
FORMAT TRACK SDENS. 
7JUMP ERROR DETECTED. 
5 TRACK 1 

EET TRACK NUMBER. 
7FORMAT TRACK DODENS., 
SJUMP ERROR DETECTED. 
WRITE SDENS ID SECTOR. 
SELECT NEW FUNCTION. 


5 HHEHHRHHRHKHKRHHKRHEKRKRKRHKHKKRKRKHKRKRHKRHRKHHHKHHRHKHRHHHHHHHKHHHHEEH 


TRL 280 CPIM DUS 


FORMAT — 


ASSEMBLER VERSION 2,21 
JADE DOUBLE 0 


FUNCTION CONTROLLERS 


OSSD 
0260 
Orn 
Oust 
O267 
O24A 
O260 
0270 
O27 3 
O274& 


3 
oo 
A 


GSOaOG 


Pa 
one 


2 03 02 03 


Mobo oe 


bo bobo bo ba hy 


© 


OZ8E 
EES 


O24 


SA O400 
PES 

Ca O70 
a ode 

32 0404 
CO OSS 
C3 148A 
11 OSE 
CO OFF 
ai O16A 


SA 040A 


3A O409 


11 0945 
CD 0297 
C3 0168 


PAGE 7 


SEHEHHKHEHHKKEEHHKKEHHKKRHHKKHHKERHRHKEERHKKEHHKKHERHHHKEHHEH 
5 FUNCTION 3 - WRITE SYSTEM TRACKS # 
SHHHRHHHKEHRHHKHKHEHHKEEHHKHEHHHHRRHKKRERHKKHEEHRKHEERRRHHHEEREH 


FUN. 3: LIA oYS. RF LOAD SYSTEM READ FLAG. 
CP “RT 5 TEST IF READ CODE, 
ANZ =» NSYS 7JUMP IF NO SYSTEM. 
MV] As Wr WRITE TRANSFER COLE. 
STA TF.DIR EET TRANSFER OIRC. 
CALL TRNSFR WRITE SYSTEM TRACKS. 
IMF SELECT WRITE ANOTHER DISK. 

2 NSYS: LXI D,MSG. NR SNC SYSTEM LOADED MSG. 
CALL MG. OT S;ISSUE THIS MESSAGE. 
IMF SELECT ELECT NEW FUNCTION. 


| HHKEHHHHKKHHKHEKKEHHHRHKEHHERKERHKRHERHHERHHHEHHERHHEHEHHEEE 
5 NEXT TRACK SELECT ROUTINE # 
| SHHHKHHHEHHKHHHHHHHHHHHEHHHEERHERKERRHHERHHEHRHHEHKERRRERHEE 


TRE.NX: LIA TRE. MX ;LOAD MAX TRACK NMBR. 
MOV B.A GAVE IN REG EH. 
LTA TRE. NU GET THIS TRACK NO, 
CMP E SCHECE FOR LAST TRACK. 
lL =» DONE 7JUMP IF LAST TRACE. 
INR >GET NEXT TRACK. 
STA TRE. NO 7S TORE NEXT TRACK. 
XRA A SET ZERO FLAG. 
RET RETURN TO CALLER. 

= - DONE: MVI A» ONES SET ALL ONES. 
ANA A EET FLAG NOT ZERC., 
RET LAST TRACK EXIT. 


5 HHHHRHHHRKEHKHHEHHRHHKHRHREKEKEKHRHKHHEHEKEHRHREHEREREEHE 
5 FORMAT TRACK ERROR # 
5 HHHHHHHKHKRHHHEHRHHKRHRHERERERKHKREREKKHEHHEREHEHEHHEHESH 


TRE.ER: LXI Li, MSG. FE FORMAT ERROR MSG ADDR. 
CALL MSG. OT 7;DISPLAY MESSAGE. 
IMF SELECT SELECT NEW FUNCTION. 


+ HHHHHHKHHKEKRKEHKKHKKKKRKHHHKKHHKHHHHHHHHKHHKHHKRHHKRHHKHKHHHRKHHREHHHHEH 


TOL 280 CP/M DISK ASSEMBLER VERSION 2.21 PAGE & 
FORMAT — JADE DOUBLE Li 
CONSOLE AND BIOS COMMUNICATION 


S HHHHHKEHHKHHK HEHEHE HREEHHKEHKEHHHKHHHERHHKKERHHERHKHERHHEHHHE 
5 MESSAGE DISPLAY ROUTINE # 
S EHHKHEHHKHEKHKKKKERKKERHKKERKKKERHKKEHRRKKKERHRKREEHHHEEEEH 


0297 స MEG. CT: MVI C,BC.PITX SPRINT TEXT VECTOR. 
OLY O00 IMF’ ELISE: sCONTINUE IN Bros. 
5 HHHHHHHEHHHEHRHHHEHRHKHHKHHHHEHKKRHKEHKEHRRHKHRHHHEHRHRHEHHEEHHE 
5 CONSOLE INFUT ROUTINE # 
SHHMHRHHEHHHRHHHEHKHEHHEKHEHKHKKKKEHHRHHKERKHHRREHHRHHHEEEH 
Ou Oa0O CNS. IN: LXI LI, RC. BUF s;EEYBOARD BUFFER ADDR. 
O29F VEDA MVI Co, BC. ROB ELMS CONSOLE BUF READ. 
O2ZAI we 0005 IMP BOGS sCONTINUE IN BOOS, 
5 EHHHEHHKHHKHEHHKHEHKRHKERKERKKHHKERKHKEHRKHRHHKERHHRERHHERHE 
> BIOS VECTOR DEFINITIONS # 
S CHHHHHHHHKEHKKHHKKHKEKKHHHHKRHKERHKHHHKHKHRHKEHRHKHEKHRHEHE 
O2ZA4 C3 0000 BS.WRM: IMF (0 7;RELOAD CCP/EBLICIS, 
UA? C3 0000 IMP 0 GET CONSOLE STATUS. 
OZAA Cs 0000 IMF" 0 sCONSOLE CHAR INPUT. 
OAL Li D000 IMF" ఓ) CONSOLE CHAR OUTPUT. 
OZEO C3 0000 IMF 0 SPRINTER QUTFUT. 
O2ZBS Cs 0000 IMF 0 FLINCH CHARACTER CLIT, 
O2E& Li 0000 IMF’ QO s;READER INPUT. 
O2ZBY C3 0000 IMP QO HOME SELECTED DRIVE. 
O2BC Cs 0000 BS. 05K5 IMF Q SELECT DISK DRIVE. 
O2BF C3 0000 BS. TRE: IMF QO SET TRACK NUMBER. 
O2C2 Cs 0000 Es, SEL: IMF 0 EET SECTOR NUMBER. 
O2C5 C3 0000 BS.0MA: IMF 0 EET TRANSFER ADDR. 
O2C08 CS 0000 ES. ROE: IMP O REAL DISK SECTOR. 
O2ZCB C3 9000 BS.WRS! IMF 0 SWRITE DISK SECTOR. 
O2CE Cs 0000 IMF O LIST DEV STATUS. 
O2D1 C3 0000 IMF Q SECTOR TRANSLATE. 
O24 Cs 0000 BS.FMTs IMF © FORMAT DISK TRACE. 
0032 Bi, Vaz == «= “HES. WRM CALCULATE SIZE. 
S HHEHHHHHHKEHKEHHEHREHHEHKHHERHEHKEHKERHHHHREHREHEERHEHREHE 
3 BLOCK MOVE SUBROUTINE # 
J HEHEHE HK 
O2D7 oe E. MOVE: MOV ALM GET BYTE 
ULE 2s INX H 7 INC SOURCE. 
OD 12 STAX [i STORE BYTE. 
O2DA is INX Li 7INC DESTINATION. 
O20B OB Li. xX E UNE LESS TO DO. 
O20C 73 MoV A+B 7GET E REG. 
O200 Bi CRA C OR IN C REG. 
O2DE C2 O2D7 INZ E. MCIVE 5REFEAT FOR LENGTH. 
OxE1 CS RET RETURN CALLER. 


7 HHHRKKHHKKRHHRKRKRKRHHRHEHHKHHHKRKHHHHRKEHHHKRHHHHRHHKRHHHHHRHRHEHEHHH 


TOL 230 CF/M DISK 


FORMAT - 


RO 
OSES 
OOZES 
OZEY 
OSEC 
OSEF 
O2F2 
OFS 
OSFS 
OF 
O2FC 
O2FF 


O302 
O204 
O307 
O307 


O3oc 
OSOF 
O310 
O311 
O314 
O317 
O31? 
O31A 


Oi O3516 
IA O40 


CA OFF 
O1 OS976 
C3 O2FF 
QO1 0614 
3A O408 


CA O2FF 
Ol O676 
CD Ova 


OEOO 
CD O2BF 
OEQ] 


ASSEMBLER VERSION 2.21 
JADE DOUBLE 0 
WRITE DISKETTE IDENTITY 


PAGE ¥ 


SHHHKEHHHEEHKERHHEHKEHHHERHKERKEHKERHHERHHRRHHREHHHRHHEHHHEH 
5 WRITE IL SECTOR # 
S HHKKHHEHKERHHEHHKHEKKEHKEHHHEHKEHKKHRKHEHHKERHHERHREHHEEH 


SHeeseHeeete ( SET TRANSFER ADDRESS ) ##XHHHHHHKHHHHHHHHHHHHHEH 


WSL. ILE LXI EH, IDS. SS ILI SECTOR ADDRESS. 
LOA TS.FLG s;GET TWO SIDES FLG. 
ANA A 5 TEST. 
AZ WRT. ID 7JUMP ONE SIDED. 
LXI B,1I0S.05 ;DOUBLE SIDED. 
IMF WRT. IL SUMP TWO SIDED. 

WOO. ID: LXI E, ILI. SL SIL SECTOR ADDRESS. 
LOA TS.FLG GET TWO SIDES FLG. 
ANA a TEST. 
IZ WRT. ID 7;JUMP ONE SIDED. 
LXI E, ILE. 00 5LCUEBELE SIDED. 

WRT. ILE CALL BS. LMA 7BIOS TRANSFER ALLR. 


SHHHHHHH( SET TRACK AND SECTOR NUMBERS ) x+####HHHKHRHHEHHE 


MVI > TREO 7; TRACK O SET. 
CALL BS. TRE *;BIQS SET TRACK. 
MVI CL, ID. SEC 310 SECTOR VALUE. 


CALL BS. SEC BIOS SET SECTOR. 


SHHHHHHH( PERFORM WRITE SECTOR ) HKRKRHHEHHHHHHHHHHHHHHHHEHE 


CALL BS.WRS ;BIOS WRITE SECTOR. 
LRA A SET CONDITION CODES. 
RZ RETURN USER Goon, 
LXI Lo MSG. NC 5 TRANSFER INCOMPLETE. 
CALL MEG. CIT 5 ISLE MESSAGE. 

MVI A, ONES SET ACLIMULATOR. 

ANA a SET FLAGS NOT ZERC. 
RET ERROR RETURN. 


5 HHHHHHKHKRKHKKHKKRKKRKKHKHKRHHRKEHHHRHHHKHRKHKRKHKHHHHKHHHHRHHRHHRHHEE 





TOL Zs0 CP/M Lak, 


FORMAT — 


ASSEMBLER VERSION 2.21 
JADE DOUBLE OD 


PAGE 10 


FORMAT TRACK DRIVER LINEAGE 


Os1B 
BLE 
O32 1 


BO. geht, 00e 


O24 


O32 7 


O32A 
Cris EB 


Gast 
O331 


Os 


Oc 
Oss 
OSE 
Oso 


Zs 
@ 


Lit fs 


33 
Lf 


mr 


oO, {880, c00 


OSE 
O34) 
RIT: 
DICT 
a4 
SICL Ss 
OS4E 
O330 
Ose 


O54 


OL Oo8aoo 
Co OS 


O11 OBOO 


La) ge 


rc DALI: 


CO O2SBF 


3A O40 


CO GR od Be 


Co OFC 
aa DALI 
FéFE 

CO 


3A 04017 
EéO1 

32 DALE 
Ca OS4E 
SE4l 

Ca O3S50O 
ES 

32 O47 
AF 


iy 


SHEER HHHHHHHKKKHKEHHHEHHHHRR KKH HHH KKH HREREE 
5 FORMAT TRACE DRIVER # 
SHEE HHHHHHHHKKKKKHKHHRHERHRHHRERHEHHHHHHHEHHHHHHEH 


SHEER TIENSITY ENTRIES ) #XKXHHHHHRHRHHHHRHHHHRRHRHHERHE 


FMT.S08 LXI BF TS740 LOAD INJECTION ADOR, 
IMF ET. DMA GO SET OMA AOR. 
FMT.0GDe LXI BF TISOD LOAD INJECTION ADDR. 


SHHEHEHHEHH( SET INJECTION MODULE ADTIRESS J) HHHHXHHHHHKHHHRHEHE 


ST.0MA CALL BS. LMA SET TRANSFER ADDRESS. 


EHR SET TRACK NUMBER AND DCM FLAGS ) RXRHHRHHHHHHHEH 


LOA TRE. NO ;LOAD TRACK NMER. 

MoV LA FLT INTO C REGISTER. 
CALL BS. TRE PET TRACK NMBR. 

LOA F. FLAG 5LUAL DCM FLAG. 

MoV CoA LOM FLAGS. 


CALL BS. SEC EET LOM FLAGS. 


SHHHEHHHH( FERFORM FORMAT TRACK ) HR KHKHHRHHHHHHHHERHHHEE 


CALL BS. FMT SEIS WRITE TRACK. 
aTA FT.STS SFORMAT STATUS. 
ANI FT.ERC 5 TEST FOR ERRORS. 
RNZ 7ERROR EXIT. 


SH#HHHHHH( SET CONTROLS FOR SIDE/SIDES ) #RRHHHHHHHHHHHEEH 


LDA FT.5TS SGET STATUS. 
ANI FT. TSM TEST TWO SIDES FLAG. 
STA TS.FLG STORE FLAG. 
INZ «=» WSO ;TWO SIDES IS Al. 
MVI A, 77-1 SINGLE SIDED MAX. 
IMF = = EXIT EXIT. 
»» TWEED: MVI A» 2k? 7-1 SDOUBLE SIDED MAX. 
EXIT: STA TRE. MX SET MAX TRACE. 
XRA A SET ZERO FLAG. 
RET sRETURN TO CALLER. 


SHKHRKRRKEKKRKEKRKEHHHHKRKHKRRKHKHKRKRKRKKHKRKKERHHHHHRKHKHHRHHHHHHHKHRHKHEKHKHEHE 


TOL 230 CP/M DISK ASSEMBLER VERSION 2.21 FAGE 11 
FORMAT — JADE DOUBLE OD 


SYSTEM TRACKS TRANSFER SUBROUTINE 


SHHKEHKHEHHKRHHEHKKHEHKHHKEHRHKHEHKEHKERKKERHHHRHKHRHHRERHHEH 
; SYSTEM TRACKS TRANSFER FUNCTION -—- ENTRY FOINT # 
5 HHKHKKHKKEHHEHHKEHHEKRKKRHHKHEHKEHKERHKERHKHRHHHEHRHHEHHHEHH 


SHHHHHHH( TRANSFER INITIALIZE ) HXHHRHHHHHHHHHHKHKRHHHHHEHHE 


Os aa Zl OSA? TRNSFR: LXI H,ST.LST SALA CF TRANSFER LIST. 
OSS 2s O40 SHLO TF.PTR SET TRANSFER FOINTER. 
SHHHEHHHH( SET BICS TRACK NUMBER ) ##H#HRHKRHHHHHRHHKRHHHHHHEHEHEH 
Cam CO ony »~»zREFT: CALL PEP ad Wee bi FOF BYTE FROM LIST. 
OSSE FEFF CFI EOL TEST FOR END OF LIST. 
O3G0 ns RZ EXIT TRANSFER. 
OG] CO OZEF CALL BRS. TRE sBIOS SET TRACK. 
SHHHHHHH( SET BIOS SECTOR NUMBER ) ##HHHHHHHHHHHHHHHHHHE 
Ome4 CO Oss MALL eo e«PLST SPOOF BYTE FROM LIST. 
O367 CO OC CALL BES. SEC EI SET SECTOR. 
SHHHEHHKHH( SET BIC TRANSFER ADDRESS )#H#HHKRHHHHHEHHHHHEHH 
Oa COD 0371 CALL ee PLST FOP BYTE FROM LIST. 
O360 CO osve CALL «=» ALICE CALCULATE ADDRESS. 
O370 CO OScs CALL BS. OMA EI TRANSFER ADDR. 
SHHHHHHH( SECTOR TRANSFER OFRERATICIN )XHHRHHHHHHHHRHHHHHEHEH 
O37 3 wl O7384 LXI He RETN SLOAD RETURN ADDRESS. 
O37 & ES PLUSH H SFUSH ONTO STACK. 
O77 3A D404 LOA TF.OIR LOAD TRNSFR DIRECTION. 
O74 FES 7 CFI “Wo SEE IF WRITE FUNCTION. 
O37C CA OSC wtZ Ess WR SBIOS WRITE SECTOR. 
O37F FES2 CFI a sy GEE IF READ FUNCTION. 
O35) CA OfCS IZ BS. ROS SBIOS READ SECTOR. 
Grad SEFF MV I A. ONES ERROR CODE NOT R/W. 
Oe BR? »»RETN: CORA ms SET CONDITION CODES. 
Oi CA OSSB IZ oe REFT 700 SOME MORE. 
SHHHHKHH( ENCOUNTERED DIFFICULTY ) HHH KRHHHHHHHHRHHHHEHHEHE 
OA ii Ov2ZB LXI Li, MEG. NC MESSAGE ADDRESS. 
OST CO O297 CALL MSG. OT END MESSAGE. 
Os7O Cy RET 70 HOME. 


5 HHHHHHKKHKRKRRKHKHHHKRKHKHKHKHHHHHHKHHHHKHHHHHRHHHHKRHHHKRHRHHEHKHHHEHE 





TOL ZS0 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 12 
FORMAT — JADE DOUBLE Li 
SYSTEM TRACKS TRANSFER SUBROUTINE 


S PHHKHHHEHHKRHKEHHKHEREHEHHHEKKERKHERKKERHKRERHEHHRERKEHHREESE 
5 POrF LIST SUBROUTINE # 
SHHKHHKEHHKEHKHREHKEHKEHKEHKEHHERHHEE RHEE HKE HEH HH HH KE KH 


0391 zA 040z FLSTE LHLD TF.PTR LOAD LIST POINTER. 
O394 4€ Mav CoM GET ITEM NUMBER. 
Cara 28 INX H 5 INCREMENT POINTER. 
O394 22 0402 SHLD  TF.FTR STORE LIST POINTER. 
0399 79 MoV A.C sMOVE C TO ACUM. 
O37A ౮9 RET sRETURN TO CALLER. 


SHHEKHKHHEHHEHKEHHHKHKEHKHHEHKEHERHERHERHERKEHERHRERRERHE 
5 GET MEMORY ADDRESS SUBROUTINE * 
SHHHHHHHHEHHHHHHHHHRHKERKHRHEHKEKHERHHERHEHKERHERHRRHREHHERHE 


COE A? » ADDRES ANA - CLEAR CARRY EIT. 
Wc iF RAR DIVIDE BY 2. 

OS7D 47 MOV B.A SHI GRIER TO B REG, 
OSE SEOQO MVI AO ;CLEAR ACUMULATOR. 
CIAO 1F RAR sCARRY BIT TO MSE. 
O3A1 Ar MoV LA SLL ORDER Ta C REG. 
OAs 2A O400 LHL TF. INX 7;LOAD TRANSFER INDEX. 
OSA Oy DAD E ALL IN OFFSET. 
OSAG 44 Mov B>H HALF MOV BC.HL. 
O3A7 40) Mav Cok 7 THE OTHER (HA!) 
OSAS CY RET RETURN TO CALLLER. 


5 HHHHHKKHHHKKRHHHKKKRHKKHHKHKKRHRHEKREKRKHHKRKHEHKHKHHHKRKHKHHHHKRHHHKKHHEE 


TOL 220 CP/M DISK ASSEMBLER VERSION 2.21 PAGE Ics 
FORMAT — JADE DOUBLE 0 


SYSTEM TRACKS TRANSFER LIST 


SHREK HEHHHKHHKEHHRHEHHKRHHEHRHKHHEHHHEHHHHHREHHHEHHEREH 
5 THE FOLLOWING IS A LIST OF SYSTEM TRACK SECTORS * 
USED BY THE TRNSFR SUBROUTINE. THERE ARE THREE * 
ENTRIES PER SECTOR. 1ST IS TRACK NUMBER. WNL IS # 
SECTOR NUMBER. SRO IS MEMORY LOAD OFFSET. # 


శీత WB 


OOOO 
OOO] 
GOFF 


Cia 
OSES 
O3C1 
O3CD 
OL 
OSES 
Os 1 


OSF 4 
0400 
O40C 
O41 
044 
O40 
O4:3C 
0445 
044 
0460 
O46C 
0473 


0434 


2. o_o, అత్య రికా ge ah, ao 


QOOO404000808 
001414001818 
QQOQDADADOQOQEODE 
OOLALAQQDO30S 
OOL11I10013515 
000707000B0E8 
001717 


OLOL11BO1O2S1C 
QOLOSLFOLOG6é20 
QOLOV2S3010A24 
OLONS7O1LOESS 
OL11I2B011220 
OLIS2F0114630 
OLLI? sso011lAs4 
OLLOS70O11ESS 
O1213B01223C 
OL2SSF 012640 
OLlLY43012A44 
OL12Z047012E4& 


FF 


Sf ws SR we 


we VS 2 


TRANSFERED 


THIS LIST IS STAGGERED. 
ON TRACK 1. 


HEHHKHHHKHHHKHHHHHHHEHHHHHHHEHHHERHHHEHRKHHHHEHHHHHHEHHHEHEHE 
SECTORS 2 THRU 246 ARE TRANSFERED ON TRACK 0. # 
1 IS NOT TRANSFERED, + 
TRACK © SECTOR ARE LOCATED IN SEQUENCIAL ORDER, Sl # 

+ 
# 
# 


SECTOR 


THIS IS THE IDENTITY SECTOR. 


SECTORS 1 THRU 45 ARE 


SHHHHHHHHHHHHHHHHHKHHKHHKHHHHKHHKRHKHHHHHRHKHHRHHRHRKKRHHEREHEREEESH 


TKO === 
TK1 జజ 
EOL =m 


;DEFINE TRACK 0. 
;DEFINE TRACK 1. 
;DEFINE END OF LIST. 


tt > 


OFFH 


| HHHHHKHHHKHHKKHHHKRHHHKRHHHKRKHHHHHHRKRKKHHKRKRKRHHHRHHHRHRHHHHRESE 


~ BYTE 
»BYTE 
» BYTE 
BYTE 
WHYTE 
»BYTE 
BYTE 


ST.LsT: 


BYTE 
BYTE 
»~ BYTE 
»BYTE 
« BYTE 
WHYTE 
«BYTE 
»BYTE 
s BYTE 
« BYTE 
BYTE 
~BYTE 


» BYTE 


TKO, 04,04, TKO, 08,08, TKO, 12,12,TKO,16,16 
TRO, 20, 20, THEO, 24,24, TKO, 02,02. TREO, 06, 06 
TKO, 10,10, TKO,14,14,7TKO,15,15, TKO, 22.22 
TKO, 26.24, THEO, OF OF, TKO,0%7,0%7, TEO, l's.13 
TKO,17.217;TKO,21,21,TKO, 235,25, THO, Us Ost 
TEO,07,07,TKO,11,11,.7TKO,15,15,.TKO,17,1°7 


THO, 23,23 


TRK1,01,27,TK1,02,28, TK1,03,27, TK1,04, 30 
TK1,05,31,TK1,06, 32, TK1,07.33:TK1,0&8, 34 
TK1,0%, 335, TK1,10,36;TK1,211,37,TK1,12.35 
TK1,13,39,TK1,14,40,.TK1,15,.41,TK1,16; 42 
TR1,17,43,7TK1,15,44,7K1,17.,45., TK1, 20,46 
TR1,21,47,TK1,.22,.45,7TK1.23,47,; THis; 24,250 
TKR1,.25,51,.7K1,24,52,7K1,27,53,TK1, 25. 54 
Tri, TY, TK1,30,56.,7K1,231,557,TK1, 32,58 
TE1, 33,359, 7TK1,34,60,7TK1,35,.61,7TK1,36,62 
TR1,37263, THis 38,64, TE1, 37,65. TEL» 40,66 
TR1,41,47,TK1,42,68,TK1,43.6%,TK1,44, 70 
TR1,45,71,TK1,46., 72, TK1,47.,73,TK1,45, 74 


oo 7;END OF LIST. 


SHHHHKKKKHKRKHKHKKKKKKKRKEKRKKKKRKHHKHHHKHHKHKRHKRHHHHHHKHHKREKRHHHHHHHHHKEE 








TOL Z80 CP/M DISK ASSEMBLER VERSION 2.21 FAGE 14 
FORMAT — JADE DOUBLE D 


SELECT DRIVE SUBROUTINE 


SHHEHHKKKEHEHHHHKKKEHEHHKKKHKEHRHHKKERRRRRRRHHHREHRRHHHRHHEE 
5 SELECT DRIVE THRU BIOs * 
5 RERHREEEREHEHRHREHEREERREEEERHEHEHHH KKK KK KKK KEK 44 4 44 


MRR DISPLAY MESSAGE AND WAIT FOR RESPONSE )#e#HHHE 


O495 wi O405 2EL.OR: SHLD MSG. SV SAVE MESSAGE ADDRESS. 
0458 ZA O405 » REPT? LHLO MSG. SV LOAD MESSAGE ADDRESS. 
O43B EE XCHG SFPUT ADDRESS IN DE. 
O43C CO O27? CALL MSG. OT S;ISSUE MESSAGE. 
O46F CO O29C CALL CNS. IN SCONSOLE INPUT. 
0472 3A 0301 LOA RC. NBR ;LOAD NMBR OF CHARS. 
O493 FEO1 CFI 1 SEE IF ONE CHARACTER. 
O497 C2 0485 INZ « «REPT 7IF NOT 1 CHAR TOO BAD. 
SHHHHHHH( SEE IF DRIVE LETTER GOOD REEL HK 
049A SA O302 LDA RC. TXT LOAD LETTER. 
O470) Né41 SUT “AS GET NUMBER. 
O49F DA O481 a se ILLG 5 ILLEGAL, REPEAT. 
O4A2 FEO4 CFI O4H 7DRIVE A THRU Lr? 
O4A4 DA O4BA LC . »NMBR GOOD NUMBER. 
O4A7 D420 Sul “ATH "AM SOFFSET LOWER CASE. 
O4AY DA 04E1 lt »  ILLG 5 ILLEGAL, REPEAT. 
O4AC FEO4 CFI O4H SLOWER A THRU OD? 
O4AE DA O4B4 iC .» »NMBR LEGAL ORIVE. 
SHHHHHHH( EXIT TO RESELECT FUNCTION )###X#HHRHHHHEHHHHHHE 
O4B1 11 O7A2 ee ILLG: LXI Ll, MSG. SE 7° SELECT ERROR” 
O484 CO 0297 CALL MSG. CIT 5 ISSUE MESSAGE. 
O457 Cs 0486 IMP = REPT SREFEAT SELECTION. 
SHHHHHHH( VALION DRIVE NUMBER JEEREERHHHEHRRHHEHHREHHHHHH HK 
O4BA 32 O40E »»-NMBRE STA SV. NBR SAVE DRIVE NUMBER. 
O4BD 4F MCV CA $LIRIVE NMER TU CC. 
O4BE 1E0O1 MVI E,NO.LOG SLOG ON VECTOR, 
O4C0 CO OZEC CALL BS. DSK 7BIOS SELECT DISK. 
O4C3 7C MOV A»H CHECK RETURN ADOR. 
0404 BS CRA L SET FLAGS Z/NZ. 
G4 CA 0451 IZ su ILLG BIOS SAID NOGO IF a. 
O4C8 3A O40E LOA SV. NEK GET NUMBER. 
O4CB cy RET RETURN CALLER. 


> HHKKHKKKHKKKRKKHKHKKKRHKKKKKHHHHKRKHHKHKKKHHKHHHKHHHHKHHKHHHRRHHEKE 


THE 2eQ°CR/M DISK 


FORMAT — 


SMALL ROUTINES AND 


DAL. 
O4c0 


O400 
O40? 
O404 
0405 
O407 
O4ne 
oO4n? 
O40iA 
O408 
O40 
O40i0 
O4TDE 
QO40F 


O4EO 
Q500 


0014 


O500 
Q5301 
OO 


FF 
CS 016A 


OF SO 
0000 
oOo 
0000 
OO 
OO 
OO 
OO 
OO 
OO 
OO 
00 
OO 


14 
OO 


ASSEMBLER VERSION 2.21 
-ADE DOUBLE 0 
DATA AREAS 


PAGE 15 


SHHEHEHEHHHEHHHHKEEHHHERHHHHHRHHHEHHKHEHERHHHRHERHHEHRHHHHHHEEE 
5 SOFTWARE TRAFS — ODT EXIT # 
SHHHHHHHKHKHHKHERHKRHHKEHKERKHHKKHHKRERHRHERKHHHHHRHHHEHEREEH 


EXIT FORMAT. 
sRETURN FOR SELECTION. 


RST. 75 RST rs 
IMF SELeEE T 


SF RRHHHERHHHHHHHHHRHHHHHH HH HH HH KH KH HHH HHH KK HHH HK HH HHH HHH 
5 WOREING VARIABLES # 
| HHHEHHHHHHHEHHHHHHKHHHHHKKKKHRHRKHHHHRHEHRHHRHHHHHRHREHHREH 


5 TRANSFER INDEX. 

s;LIST ADDRESS FOINTER. 
5 TRANSFER DIRECTION. 
MESSAGE SAVE ADDRESS. 
s;FORMAT STATUS SAVE. 
7TWO SIDED DRIVE FLAG. 
5 TRACK NUMBER HOLD. 
LAST TRACK LIMIT. 
SECTOR NUMBER HOLD. 
F.FLAG: BYTE QO FORMAT FLAG (DCM). 
SYS RFE BYTE Q SYSTEM TRACK READ FLAG. 
oV.NBR:S . BYTE () 5SEL.DV TEMF STORAGE. 
FOJNBR: . BYTE 0 FORMAT DRIVE NUMBER. 


TF.INX: WORD OF SOH 
TF.PTR: WORD Q 
TF THR .BYTE 2) 
Males FV: .WORD 0 
FT,SISE » BYTE QO 
TS.FLG:S .BYTE (0 
TRE.NU: BYTE QO 
TREAMX? J BYTE Q 
SEC.NOS BYTE Q 


STACKS . BLEW 16 SFROGRAM STACK AREA. 
SF. TF == ఇ TOF OF STACK. 


FS HHHHKHHHHHHHHHHHHHHHRERKERHHHHHHERHERHHEHHHERRHHHERHHEHHE 
5 CONSOLE INFUT BUFFER AREA % 
5 PHHHHHHAHHHERERKKHHERHEHHKHKHHHRHEHKEHHHEHHEHHEHHRHHHEHHEHE 
CB.SsIZ == 20 ;CONSOLE BUFFER SIZE SET. 

RKC. BUF: . BYTE CE.SIZ sDECLARE BUFFER SIZE. 

RL. NBR: . BYTE 0 5 INPUT STRING SIZE. 

RL TXT: .BLEE CB.51Z sRESERVE CONSOLE BUFFER AREA. 


5 HHHHRKKRKKHHKKHKHKRKRHKHKHKRHHKKHHHHHHHHHRHHRHHHRHHHHHHREHHKEEE 








TOL ZS0 CFE/M DISK ASSEMBLER VERSION 2.21 PAGE 164 
FORMAT - JADE DOUBLE OD 
IDENTITY SECTORS 


SHEE HEHHKEHHHERKEKKRKEHKEREKKEHERHERHERHRHREEHREHEHHREHE 
; JADE SINGLE DENSITY — IDENTITY SECTORS # 
SHH HREHEHKEREEREHKERERHERHERHREHHRHHEHHERHHHEE 


O316 446164652044 [05.S55: ASCII “JADE 00 S SIDED 5 DENSITY FORMAT " 
UG LO IOS. S5+20H LOCATE CP/M 2.2 DFE. 
OSG QO1A »WORD 2G SECTORS FER TRACK. 
OI Os EVIE a S;BLOCK SHIFT FACTOR. 
Ors O7 ~BYTE 7 ELOCE MASE. 

OSA OO - BYTE 0 SEXM. 

O3-3B OOF « WORD 268 /5/3-1 DISK SIZE —- 1. 

Ors OOSF » WORD Est OIRECTURY MAXIMUM. 
Oras CO » BYTE 110000008 SALLOC Oo, 

౧540 OO »BYTE Q ALLO 1. 

O541 OO10 . WORD 1é CHECK SIZE. 

05343 O002 » WORD z TRACE OFFSET. 

౧546 »LOc IDS. S5+30H LOCATE DCM BLOCK. 
O46 OO »BYTE 0 SNOT USED. 

O547 Om SO.FLGs .BYTE 000000108 SDISKETTE FLAGS. 
Osh »LOC IDS. S5+S5EC.352Z SEXTEND FULL SECTOR. 


SS HEHEHE RHEE HHH HERE HEHEHE 


OIF6 46164652044 IDS. LDS: .ASCII "JADE DO LD SIDED S&S DENSITY FORMAT " 
OABG LOC ToS. 0S+20H LOCATE CF/M 2.2 OFB. 
OSES OO1A .WORD Pt os SECTORS FER TRACK. 
OSES O4 »~BYTE 4 S;BLOCK SHIFT FACTOR. 
OSE? OF » BYTE i= ;BLOCK MASE. 

OSEA O1 ~BYTE 1 ;EXM. 

OSBB OOF & «WORD 2621 52/16~-1 DISK SIZE ~ 1. 

OSEL OQOSF »WORD &3 s;DOIRECTORY MAXIMLIM. 
O=BF £0 »~BYTE 10000000B sALLUC 0. 

OSLO OO » BYTE 0 ALLOUC 1. 

OIC 0010 » WORD 1é S;CHECK SIZE. 

OSs Q002 -WORD = 5 TRACK OFFSET. 

OCS »LOC ILS. 05+ 30H LOCATE DCM BLOCK. 
DCG OO »BYTE Q SNOT USED. 

OSC7 OA « BYTE QOOO0010108 7;DISKETTE FLAGS. 
0416 « LOC Ins. 05+SEC. 52 S;EXTEND FULL SECTOR. 


> MHHHHHHHKHHHHKKHKKKHKHHHERHHHHHHKHKRKRKRRHHHEKKRKERKKRREKREEKEEE 


TOL 280 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 17 
FORMAT — JADE DOUBLE 0 
IDENTITY SECTORS 


SHHEHHHHHEHHHHKKEHKRHHKKEHEHHERRHKKHKHERHHEHHERKHHERHEHREEHH 
5 JADE DOUBLE DENSITY —- IDENTITY SECTORS # 
SHHEHHHHKEHHERHKHHEHHKEHHHHEKHEHHRHEHHEHKHKHKHHEHKERHHEHRERHE 


0616 4461644652044 105.50: .ASCII "JADE DO 5S SIDED DL DENSITY FORMAT " 

0636 LOC TOs. S0+20H LOCATE CR/M 2.2 LIFE. 

VEG OO32 »WORD 30 SECTORS FER TRACK. 

O636 O4 BYTE జు 7>BLOCK SHIFT FACTOR. 

0437 OF ENTE COOO1111E 5 ELUCE MASE. 

Q634 Ol BYTE 1 7EXM, 

0638 OQOEY » WORD IO#7S/16-1 SUISSE SiZE = Js 

O630 OOSF » WORD Es SDIRECTORY MAXIMUM. 

O63F so » BYTE 100000008 S;ALLOC 0. 

0440 OO BYTE () SALLUOG 1. 

0641 O10 = WORD 14 CHECK SIZE. 

0643 0002 « WORD జ 5 TRACE OFFSET. 

0646 » LOW IDS. 50+ 30H SLOCATE DOM BLOCK. 

0646 00 BYTE (0 SNOT USED, 

0647 O4 DO.FLGS BYTE 000001108 ;DISKETTE FLAGS. 

04676 »LOC IDS. S0+SEC.52 SEXTENL TO FULL SIZE 
5 REHHEHRRHHEHERHHHHEHHHEH HHH HHH HHH HH HHH HH HH HHH HHH HH HH HHH 

0676 4AG6164652044 ILS. LD ASCII "JADE DOO 0 SIDED DO DENSITY FORMAT " 

OOBSG »LOC ILS. 00+20H LOCATE CP/M 2.2 LFE. 

EEG OO3S »WORD rer] @ SECTORS PER TRACK. 

Q6RS Oo » BYTE I ;BLOCK SHIFT FACTOR. 

O4BY iF « BYTE 31 BLOCK MASE. 

OBA Os » BYTE 3 7EXM. 

O&BB GOEL: » WORD LOXLTS2/ 32-1 $DISE SIZE = 1; 

O6BD OO7F : » WORD 127 SDIRECTORY MAXIMUM. 

O&BF aQ » BYTE 100000008 7ALLOC 0. 

DELO QO « BYTE 0 sALLOC 1. 

O4C1 OOO « WORD 32 sCHECK SIZE. 

O6C3 0002 » WORD = 5 TRACK OFFSET. 

04606 LOC IDS. O0+30H ;LOCATE DCM BLOCK, 

VEL (0) « BYTE Q SNOT USED. 

0607 OE »~BYTE 000011108 SDISKETTE FLAGS. 

O714 «LOC IDS. DD+SEC. SZ EXTEND TO FULL SIZE 


> EERE HHH HHH HHH HHH KH EHH EHH HH KKH HEH HEHEHE HK 


TOL Z&0 CF/M DISK ASSEMBLER VERSION 2.21 PAGE 15 
FORMAT — JADE DOUBLE Li 


TEXT MESSAGES 


SS FERRER HEHEHE HEHEHE KH HHH KH HEHEHE 


O7146 MSG. BG: SCONSOLE SIGN CIN % 
SHHHKHKHKHHHKHHHKHHHHHKHHKRHKRHKHHHKHKHHHHHHHHKRHKHHKRHKRHRHKHHHKHHHKRKEKHHKRER 

0716 ODOA ASCII CCRICLFI : 

O715 ObUPehieoeber eG 1 CCR Lr ao sc ern ప ar See eres ee 

O7 3A ONOA464FS240 ASCII CCRICLFI“FORMAT UTILITY 2 ~~ JADE DOUBLE Dr 

O75C ODOASDOSOSOSO ASCII CORICLEI°-------------------------------~-* 

O77E OnOAL4 ASCII CORICLFICEOMI 
a ERK EERE AE EERE E EEE REE ERE RE REE REA EE ERA EER ERR ERE ER 

O7351 Mls FO: FORMAT CN DRIVE SELECT # 
> HERR HHH KE 4% 4 4 4 4 4 4 HH 4 4 4 4 EHH KEE HEHEHE EHH 

0721 QONOAS3S43546065 ASCII CCRICLFE1° SELECT DRIVE TO BE FORMATTED: “CECM] 
S FEE HESE-SE GEESE SE-SEHE SE HEE HE HEHEHE HE HE ESE GE SE HEHEHE SESE HE SE HEE HEHEHE HEHE HEHE EE HEE HE SE HE GEE GE GE HEE 

07AZ MSG. SE: ;SELECTION ERROR % 
SEES CESSES SESE HE SEE JE SEES SEE SE ACHE SEACH SE SCARE ACHE HE SCHEELE SEA HE SE EAE 

O7AZ ~ODOASE4F 3420 J ASCII CCRICLFI°NOT A VALID SELECTICN “CEOM] 
SHHKRHKKKKRKRHHKRHKRKHKHKHKRRKKKHHHKKHKKRHHHKRKRKKHKEHHKHKHKHHHHHHHKHE 

O7 BE MSG.FL: SOISFPLAY FUNCTION SELECTIONS + 
5 HEHEHE LEER HEE HHL HEHEHE HH KK HHH KKH EHH 

O7 BE OOOAOTOA ASCII CORICLFICCRICLFI 

O7BF QHOALZNDSZOSO2Oo ASCII CORICLF I“ ----~------—--------—--------~-+-~----" 

07౬1 OLOAZOZOROTO ASCII CCRILLFI]1" FUNCTIONS LIST న 

0803 ODOAZDZDZN20 ASCII CORICLFI“------------~-~------~-------------* 

OES OOO A ASCII CCRILLF] 

O827 QDOAZOSIZESO ASCII CCORICLFI” 1. FORMAT DOUBLE DENSITY &" 

0847 QOOASOSSLZELO ASCII CORICLFI” 2. FORMAT SINGLE DENSITY &" 

O867 OOOSAZOSSZELO ASCII CORICLFI- 3. FORMAT STANDARD 3740 &" 

O8S7 QOUOALSOS42E20 ASCII CORICLFI” 4. READ SYSTEM TRACKS IMAGE Fs 

QOSAA ODOALZOSS2ZE20 ASCII CCORICLFI” &. WRITE SYSTEM TRACKS IMAGE 

OCI OUOA ASCII CCRICLFI 

OSCF.... ODOAZD2ZD2D20. . ASCII CCRICLF1’---------------—--—--------------~ ‘ 

OSF 1  ODOAL4 ASCII CORICLFICEOM] 

) S HHHHHKHHHHKHHKHHHHKHKKEKHHRHHHHHKRHHKRKHHHHRHERHKHHHHKHHRHHHEH 

OSF 4 MSG. SF: SELECT FUNCTION శ 
7 EERE KHE KKH HK HK KEKE HE KEKE KEKE HEHEHE KH HHH 

QHrF4 QOOA4S4E5445 ASCII CCRICLFI“ENTER FUNCTION NUMBER: ~“CEOM] 


5 HEHEHE ERE HEH HERE HHH 


TLL 280 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 1? 
FORMAT — JADE DOUBLE Li 
TEXT MESSAGES 


SHHEHKEKERKEKKEHKEHERKEKERHERERHERHERHEEHKKERERHERHERHERE 
OFOE Mis, Ks: REAL SYSTEM ON DRIVE * 
S REERERRRRRHEREEREEREREHEREEEHHHHRREKRRREERHEEREREHEEHHHHHH 


OVOE OLOA eASCII COCRICLF I 
oOv1O0 ODOAS2454144 ASCII CCRICLFI“READ SYSTEM FROM DRIVE: “CEOM] 


SHHHHHHHHHHEHHRHHHERHHHEHHKKERHHHERRKKHEHRKKEHEHRHKERHHHHHEH 
OSE MEG, NCE 5 TRANSFER INCOMPLETE # 
SHEKHHHHHEKEHHHHKHKEEHRHHHKHHEHHKHHHHRHRHRHRHHRHHHHHERRHERHHEH 


OV2E ODOA ~-ASCII CORICLF I 
OV2T ONOAS4S2414E ASCII CCRICLFI“ TRANSFER INCOMPLETE” 
OHA OLOAL 4 ASCII CORICLFICEQM] 


S EHHKERKKKKKEHHKEHKERKERHHEERHEHHERHKKERHH ERHEEHHHKE 
O94 MSG. FE: FORMAT ERROR జ 
SEEKER HEH KE KKK EHKERRERKERREHEKKHRHKHEHHHREHKEHRHREHHEE 


OV4s OLOA ASCII CORICLFI 
0947 QODOA4G64F5240 ASCII CCRICLFI“FORMAT TRACK ERROR” 
Ov aB ODOAL4 ASCII CORICLFICEOM) 


FEHHKHHHEHHKERHKERKEHHHKEHHERKERKERHHEERRKERHERRKERHHEEHEE 
OSE MSG. NK: SYSTEM NOT LOADED # 
FHKE RHKERHEHHEEHHE HHH HHEHKERREERHKEHKEEHHERHHEEHREEHEE 


OF SE ODOR ASCII COCRICLFY 
OFGO ODOASSSI7S354 ASCII CORICLFI°SYSTEM TRACKS NOT LOADED 
OF7A QODUOAL4 ASCII CORICLFICEOM] 


5 HHHHHHHRKKHKRRKHEHKRKKKHKEKRHEKKHKRHHKKRKHHHHHHKKRHEHHKHHHHHKHHHHERHREEE 


TOL zso CP/M DISK ASSEMBLER VERSION vezi PAGE 20 
FORMAT — JADE DOUBLE LU 
INJECTION MODULE — MACRO DEFINITIONS 


SHHEHHKEHHHEHHERHKKHRHEHHEKRHKEHHRERHKKEKKEEHRKRERHRKERHHEHHEEH 
5 FORMAT — TITLE BLOCK AND FAGE ALIGNMENT # 
SHEE HHHEHHEHHEHEHKRHEKHHEKKHKERKERHKERKEHRRRERHERHEREE 


SET NEXT PAGE BOUNDRY. 


~DEFINE FORMAT CNAME] = C 
NAME =o .o2 OP PHS L ; 


LOC NAME 5GET LOC TO NEXT PAGE. 

OFFSET =. FMT.EA-NAME ;DETERMINE ADDR OFFSET. 
0 20 INOW LSE Zea COLE. 
ASCII “FORMAT! “J 5 INCLUDE HEADER! 


SHHEHHHHHHRHHHEHKHHKEHEREHHE HR HHEHHHRERHRRERHRKHHRHERERHRHEH 
5 DENSITY - DECLARE TYFE # 
SHHHREHHHHEHHHHHHRHEKHHEHHHHRHEHRHEHHHHREHEHHHHEHERHEHHHEHEHEE 


-DEFINE DENSITY CTYPE] = C 
eIFION (CTYFPEICSINGLE], C 


~ASCII “S" 

EXIT] 

~IFION LTYFEJLLUUEBELE 1, C 
ASCII “I 

«EXITI 


ERROR “INVALID DENSITY] 


SHHHKHEHKHHKHEHKEHHHHHHERHKERHERHKHERHHERKHKERKERHRHERHRHEHRHE 
; SECTORS ~- SPECIFY SEQUENCE AND NUMBER OF SECTORS * 
FS EHHHEHHERHHRHHHHHHEKERKHERHHEEKEEHHERHHERKERHHHEHEHHREHHHEEH 


LIEFINE SECTORS CLIST>»NMBRI = [ 
LX H»LIST+HOFFSET SECTOR SEQUENCE ADDR. 
MVI E.»NMBRI S;NUMBER CF SECTORS. 


> HHHHKKKHHHKKRKHEHKHHKKKKRKHKHKHRHKHKRHHKRKRHHHKHHRKRKHRKRHHRKHHHHKEER 


5 BLOCK ~ GENERATE A BLOCK OF CONSTANTS + 
5 EHEHKHHHKHHKHEHHKHHHHHKKRHHHRHKRHHEHHKRHRKHHRHEHKHRHHRHERHEE 


DEFINE BLOCK CCOUNT, BYTE, %REFT] = [ 


NMBR = COUNT SET EQUAL FOR NOW. 
MVI E, NMER LOAD NMBR CF BYTES. 
“ZREPTs IN XF. OSH ;WAIT FOR DATA REG. 
MVI A» BYTE LOAD BYTE VALUE, 
XRA C | 5 INVERT (1771-01). 
QUT  WO.OTA WRITE DATA FORT. 
LINZ AREFPT J SREFEAT FOR COLINT. 


5 RHR EEEER EHH HH HHH EE EE HE HE EH KH HH HH 4 4 KH 4 KH HE HE HE 4 Hf 


TOL ZSo CP/M DISK ASSEMBLER VERSION 2.21 PAGE 21 
FORMAT — JADE DOUBLE I . 
INJECTION MODULE —- MACRO DEFINITIONS 


FREER ER KER EE EEE REE RE REAR EERE EREE EER REREEHREREE HEHEHE EH 
5 REPEAT — REPEAT FORMAT SECTION FOR EACH SECTOR * 
SHEHHEHHEHHKHEHHEHKEHHRKERHERERHEKERHERRERHRERHRHREHHERHEHREE 


DEFINE REFEAT CLOCATION] = C | | 
DCR =i LEC NMBR SECTORS LEFT. 
INZ LOCATION+OF FSET I 


> EERE HHH HHH KK EK 4% 4 EH 44 KH 4 4H 4 KH 4 HH 4 4 4 4 4 4 4 4 HH 


5 ENDING — RECORD NMBR OF TRAILING BYTES WRITTEN క 
SHEE HHEEHKEHHERHKHEHKERKE RHR EHH EHKRERKEEHRERHEHHKKEHHEE 


~DEFINE ENDING CBYTE,AREPT] = C 


LXI HO ;COUNT OF ZERO. 
“ZREPT= IN XP. OSH WAIT FOR REQ. 

MVI A» BYTE LOAD CONSTANT. 

XRA C INVERT (1771-01). 

QUT WO. LTA WRITE TO FORT. | 

INX H 5 INCREMENT COUNT. 

IMF ZREPT+OFF SET 5 CONTINUE. J 


SHEHEHHHHHHERHKKHHHHHHHEHHHHHHHHKHHRHHHKRHHHEHHHHHEHHEHRHHHER 


TOL 230 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 22 
FORMAT — JADE DOUBLE OD 
INJECTION MODULE — MACRO DEFINITIONS 


SHHEHHHHHHEHHHHHHRKKHEKHHKKHEHERHHHHRHRHREHRHERHHHHRREEHEHEHHHHHEE 
5 WRITE -— WRITE SPECIFIC FORMAT BYTES t 
SHH HKHEEHHHHEERKERHKEEHKKERRHKERHHHHREHHHHEEHHHHEHHEHHH 


.UEFINE WRITE CTYPE,VALUI = CE 
Sree ILD ADDRESS MARE ) HHH HHHHKRHHKHHHHKRHHHHKHRHHHRHEHRHHEH 


»~IFION (CTYPEICIO.MARE I, C 


IN XP. DSH WAIT FOR DATA REG. 
MVI A» OFEH 710 ADDR MARE. 

XRA C Ss INVERT (1791-01). 
CHIT WL. LITA WRITE DATA FORT. 
EXIT] 5 TERMINATE MACRO 


SHHHHHHH( INDEX MARE 1) KH HKHHHRHKHHHHHKHHRHHHHHRHRHHRHHHRHHEHEH 


~IFIOGN CTYPEICINDEX.MAREI, C 


IN XP. OSH WAIT FOR DATA REQ. 
MVI A> OFCH 5 INDEX MARE. 

XRA C INVERT (1771-01). 
QUT WL. OTA WRITE DATA FORT. 
«EAL I 5 TERMINATE MACRO 


SH#HHHHHH( DATA ADDRESS MARK JEEEEERHHHERHHRHHHHHHHHHHHEHH 


~IFION (CTYPEICOATA.MARKI, C 


IN XP. 0SH ;WAIT FOR DATA RE. 
MVI A» OF BH DATA ADDR MARK. 
XRA * 5 INVERT (1791-01). 
QUT WL. LTA WRITE DATA FORT. 
EXIT] 5 TERMINATE MACRO 


SHHHHHHH( CRO ) HHH HH 4 #4 HH HEH HE KE HE HE HH KH HEH HEHEHE HEH KH HHH HH 


~IFION CTYFEILCRC], L 


IN XP. OSH SWAIT FOR DATA REQ. 
MVI A» OF 7H GENERATE CRC. 

XRA ie 5 INVERT (1791-01). 
QUT WL. LITA SWRITE DATA FORT. 
EXIT] 5 TERMINATE MACRO 


SHHHHHHH( EXPLICIT BYTE VALUE ) HX HHHHHHKRHHHHHHHHHKRHEERE 


»IFION CTYFPEICBYTEI. C 


IN XP’. OSH s;WAIT FOR DATA REG. 
MVI A» VALU sEXPLICIT VALUE. 
XRA C 5 INVERT (1791-01). 
CUT WL. [LTA WRITE DATA FORT. 
»~EXITI 


SHHHHHHH( TRACK NUMBER JHHHFHRHHRKHHKHKKKHKKHEKRKKRKHHRKRKHKHEREE 


~IFION CTYPEICTRACK.NOJ., C 
IN XFL SWAIT FOR REQUEST. 


TOL Z80 CP/M DISK ASSEMBLER VERSION 2.21 
FORMAT —- JADE DOUBLE D 
INJECTION MODULE — MACRO DEFINITIONS 


IN WO. TRE GET TRACK NMBR. 
OUT WL. [ITA WRITE DATA PORT. 
EXIT] 


SH#HHHHHH( SECTOR NUMBER ) XXX HHHKHKKHHKKHEKHKHKHHKRRKRHHEEHHEE 


»~IFION {CTYFPEICSECTOR.NO], C 

IN XP. DSH WAIT FOR REQUEST. 
MOV AM SET SECTOR NUMBR. 
XRA C 5 INVERT (1791-01). 
OUT WLI. OTA WRITE DATA PORT. 
INX H >; INC SEC~-NMBR FNTR. 
2EALT 5 TERMINATE MACRO] 


5 HHHHHEH ( 


SITE NUMBER ) HX HHHHHHRHHHHRHHHHKRHHHHEHHHHHHREHREHE 


»-IFION CTYPEICSIDE.NQ], tC 

IN XP. OSH WAIT FOR REQUEST. 

MVI A»d SET SIDE NUMBER. 

XRA Cc INVERT (1791-01). 

CIT WL. LITA WRITE DATA FORT. 

«EXIT 5 TERMINATE MACROI 
RRR SECTOR SIZE CODE ) HHH HKHHHRHHHHHHHHHHHEHHHHHEHE 


»~ITFION CTYPEICSECTOR.SIZE], C 

SEC.CD = OFFH 7;DECLARE BLANK. 
»~IFIDON CVALUICI231, CSEC.CO = OOOH] 
»~IFIDON CVALUICS561, CSEC.CO = OO1HI 
»~IFION CVALUITCS1i2]), CSEC.CO = O02H] 
»IFION CVALUIC1024], CSEC.CO = OO3H] 


« IFE (SEC.CO-OFFH), C 
ERROR “INVALID SECTOR SIZE] 

IN XF'. OSH WAIT FOR DATA REG. 
MVI A»SEC.CD LOAD SIZE CODE. 
XRA C 5 INVERT (1791-01), 
CIT WL. DOTA WRITE DATA FORT. 
EXIT > TERMINATE MACRO] 


eet ILLEGAL EXPANSION )## 8X2 XHHHEHHRHHEHHHHHHHERHREHE 
»~ERROR “ILLEGAL EXPANSION? J 


5 HEHEHE HHH KK KKH HHH HHH KH HK 4 HH 4 4 4 KH 4 K€ KH HH HH HHH KH KH 4 HHH 





QADO 
QOA0D7 
QAQ0E 


DAOL 
OA1E 
OALS 
QALA 
DASE 
OA40 
OA47 
OA4SL 
OAS 4 
OASE 
OAGS 
OAC? 
OA74 
OA7F 
OARS 
OA? I 
GAYS 
QOAAS 


GAA? 
QABS 


OAEF 
OACY 


JADE 


TOL 280 CP/M DISk 
FORMAT — 


ASSEMBLER VERSION 2.21 
DOUBLE LD 
INJECTION MODULE FT3740 


44644F 52404154 


5 


21 1785 


O62 
DEA 
LEO 
O41A 
O08 
DBSO 
CEs 
CEO 
LIE 
DIBEO 
[LEO 
DEODE 
N406 
[LEGO 
O4650 
[EEO 
O16 
it 


sl 0000 


Biss 7408 


RES7 408 


OL02Z0304035046 SS27408 
OBOCODGEOF 10 
1S161718171A 


FORMAT 
DENSITY 3 
SECTORS SS 


BLOCK 
BLOCK 
WRITE 
BLOCK 
BLOCE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
BLOCK 
BLOCK 
WRITE 
BLOCK 
WRITE 
BLOCK 


REFEAT 


ENDING 


»BYTE 
» BYTE 
» BYTE 


PAGE 


40, CINE: 

&>, ZEROS 
INDEX. MARE 
26,0NES 

Gr ZEROS 
It. MARK 
TRACK. NO 
SIDE. NO 
SECTOR. NO 
SECTOR. SIZE,12& 
CRO 
11,0NES 

Go ZEROS 
DATA. MARE. 
125. 0E3H 
CRO 
27;0NES 

RP 3740 


CONES 
1; 2) or 4, క fr 73 it 5 Oty 10 
3 3 


112:12%.13,14,15.146,17,158,17,2 


21,22, 253324, 25.26 


24 


TOL Zso CP/M DISK ASSEMBLER VERSION &.<£1 
FORMAT — JADE DOUBLE Li 
INJECTION MODULE FTIS0D 


OBOO 4G64F 324041254 FORMAT FTISOD 

OBO? 44 DENSITY DOUBLE 

OBOE 21 17AE SECTORS SSiI500, 20 

OBODL VEO BLOCK. SO. O4EH 

OBIE 0608 BLOCK se ZEROS 

OB2Z3 0603 BLOCK 32 OF SH 

OBZE DBSO WRITE It. MARE 

OBS LEO WRITE TRACK. NC 

OESE DBSO WRITE S ILE. NCU 

ORGS DESO WRITE SECTOR. NO 

OB49 LE) WRITE SECTOR. SIZE, 128 
OB30 DESO WRITE CRC 

OBS 7 0616 BLOCK 22» O4EH 

OB62 0600 BLOCK 12> ZEROS 

OBRGD O4603 BLOCK 32 OF SH 

OBR/S DRSO WRITE DATA. MARK 

OB7F 04680 BLOCK 126. OE3H 

ORSA DRSO WRITE CRC 

OBY 1 0611 BLOCK 17, 04EH 

ORL 10 REPEAT RFJSOD 

OBAO 21 0000 ENDING ONES 

OBAE O1OB1IS1F2? BYTE 1,11,21,331» 41 
OBES OZOCL&E202A « BYTE co l2 wo 52342 
OBBS 0300172128 BYTE 3, ls vi dds ha 
OBBD O40E1S222C » BYTE 4,14,24,354,44 
ORCS QSOF 192320 «BYTE S152 I 49 
OBC 7 O6101A2Z42E BYTE Gs 16s 262 362 46 
OBC O71LLIBSS2F BYTE 7317327337347 
OEL OSLlV21C02630 » BYTE S18. 28.20, 45 
OBDS 0913102731 BYTE Pelt, 29.39.49 
OBDE OAL4IE ZS 32 »BYTE 10.20, 30. 40, 30 


»~END 


TDL 250 CP/M DISK 


FORMAT 
EEE 


BC. FTX 
EG: 740 
BEE. FHT 
Bs. TRE 
BA. MOVE 
Oo. FUG 


FMT.00. 


F T3740 
FT. TSM 
FLIN. 4 
IL. Cs 
INIT 
MEG. FL 
MSG. NR 
MSG. SF 
QRF SET 
RC. TXT 
Rot. 7 
SEC. SZ 
S53740 
STLST 
TF. INX 
TFA 
TRE. ER 
TRNSFR 
WO. TRE 
ZEROS 


- JADE DOUBLE OD 


OOO 
OAOT 
O2T4 
O2BF 


oO207 


QO647 
doz] 
OAQO 
౧001 
QOL1ER 
ONG 
O144 
O71 
OYE 
COEF 4 
OCEOO 
OBO 2 
O4C0C 
OOO 
OABS 
Wea 
౧4LiC) 
0100) 
QSSE 
OBS 
౧005 


0000) 


SYMBOL TABLE +++++ 


BC. RIE 
BGOIEOL 
BS, PTR 
Es, VaZ 
CH. SIZ 
ECL 
FMT.EA 
FT IS00 
FLN. 1 
FUN, = 
Ins. so 
LF 
MSG.FE 
MSG. OT 
MSG.5V 
ONES 
REBOOT 
SO.FLG 
SELECT 
SS ISor 
TV. NER 
TF.FTR 
TRE. © 
TRE. MX 
1S.FLG 
WRT. ILI 


SSEMBLER VERSICN 


ODOR 
DEOL 
౧001 
00:33 
౧014 
OOFF 
1700 
QOROO 
OLAA 


O25D - 


O414 
OO08 
D245 
O27 
O40s 
QOFF 
OOO 
౧547 
OLEA 
DEAE 
O40e 
O40 
HOO 
040A 
O4ns 
OSFF 


Boos 
BS. OMA 
Es. ROI 
Es, WRM 
CNS. IN 
ECM 
FMT. SD 
FT.ERC 
FUN. 2 
Fe FLAG 
IDE, S55 
LIST 
MSC FL 
MSG.RS 
NMBR 
RO. ELIF 
RPS740 
SEL. CD 
SEL. [ORK 
STACK 
SYS. Re 
TRO 
TRE. 1 
TRE. NO 
WOOD. ID 
WSL IL 


OOO 
OCS 


Ox 


O2ZA4 


Oa Yl. 


DORA 
OS1E 
QOFE 


O208 


OAL: 


OS14 
O1464 
O7BE 
OVYOE 


OO 


OF00 
OAS 
౧000) 
O44 
O4EoO 
O4 CiLi 
OOOO 
౧001 
O40? 
O2F 2 
OOZES 


REGIN 
Es, OSE 
BS. SEC 
BRS. WRS 
CR 

FL. NER 
FMT.ST 
FT.STS 


FLIN. 3 
IL, LIL 
ID.SEC 


Mai. BG 
MSG. NC 
MSG. SE 
NO. LOG 
Rt. NER 
RF ISOD 
SEC. NO 
SP. TOP 
ST. OMA 
TF.OIR 
TK1 
TRE. 2 
TRE. NX 
WO. CITA 
XP. DS 


O100 
O2BC 
ORC 
O2CEH 
Ooor 
O40F 
O28 
O47 
O1o2 
O69 4 
QQOQT 
O714 
OVE 
O7A2 
OOO, 
O20 1 
OB1S 
O4LE 
౧500 
O324 
O404 
౧001 
OOO? 
O27? 
QOO007 
OOO) 


LILT 

DOT VERS 2.2 

~IFORMAT. COM 

=H 

NEXT FC 

or O100 

LAC; AFF 

OAOO 44 4F S2 40 41 54 21 53 21 BS 17 1E 1A 06 28 DB FORMAT!S!.....(. 
DATO EU SE EF pe wie. OF 10 Eo DOS DR BU SE OAM. ets eee 
bho 07 10 Fy DE SO SE FO 62 DOO 6 16 DE So Se FP See: 
QOASO AY mo cn PO Fa a ey UG TNE TT a a 
OA DR SO SE FE A9 OS 07 TR 860 DB 05 02 07 DB S0 SE 1.05... e cede ene sD 
GA a0 La 07 DB &8O VE AY Os O7 ss OR SO a CIO EE a ae ee ee ae a 
OAGO DS ne BO GE FAS DS 07 We OE BR SO GE FR AS 25.6 oo ee ee 
OA7O DS fOr? 06 Oe DE BO Se VO Ae eo oF be Obs Se eee 
OAEO SO a WDE SO SE ES AS 05-07 OS seis 
OAP0 F7 G0 SE F7 AY DOS 07 06 1B DB SO SE FF AY DS Fe. 
OAA0O 07 10 F7 iD C2 65 17 21 00 00 DE 80 SE FF Ao DS ure tree. 
QABO O7 ao Go AA 17 Of O24 03 G4 05 06 O07 O58 OF OF UB sak iu ee oe wa 
OACO OC: anit he DE ee aa se ee ee nee 


cr Fei 
OR or tai 
ee 
J 

fut 

am 
“TI 
~ 

re 

= 
fri 


atte a, 
%, భి 


> fem Et 
eee Mat 
Th 
te 
a Tz aa 
i 
SJ 
iP 
a 
భై 


జు 
pe, 
జై 
iT} 
ap 
Tl 
feecfs 
oy 
foods 
foc 
jt 
ft 
i 
is} 


GAO OO OG. 6o0.-00 ODO GO 0G - OC O00 00° O00 OO 00° 00 00 O00 caciw eed hee e ee 


QHEOQ OO OO 00 00 00 00 OO OO 00 00 00 00 00 00 00 OC ... 


OAFD 00 00 D0 00 OG OO 020 D0 OO OC OCU DO 00 00. OO OD Gee xo eee eee 


—~DBROO, BFF 

OHOO 46 4F Sx 40 41 34 21 44 21 AE 17 1E sz 04 30 DR FORMATIOC 
O10 30 SE 4E 49 D3 07 10 F7 046 OS DB 30 SE 00 AP DS . SNe ewe ww nee 
ORO OF 10. F7 06 OS DB SO SE FS AY Ds O7 LUFT DR BO 2 we ee ee ewe ww eo 
OB30 SE FE AY D3 07 DB SO DE OS D3 07 DB 80 SE 00 AY Sawn neuen ene 2 
GEA 02 07 DB oOo 7E AY Is 07 23 DE 80 se OO AY [is Of 1...” : 
OBSO DB SO 3E F7 A? D3 07 06 16 DBE SO SE 4E AY DS OF ohne nnn 
OHGO 10 F7 06 OC UB SO SE OO AY DS O7 10 F/ 06 OS DLE sows 
OB7O SO SE FS AY DS 07 10 F7 DB 80 SE FB AY DS Of O06 ఏలీ పోకు 
OBSO GO DBR SO SE ES AY DUS O7 10 F7 DB SO SE F7 AY Os , ఎ 
PBI 07 OG 11 DB SO SE 4E AF DS O07 LOFT 10 ES LE 27 saan se wer ae wes 
OBAQ 21 00 00 TB SO SE FF AY DS 07.25 C3 AS 17 O1 OB hows neue Banna 
OPBO is Jr 2? G2 OC 16 20 2A OS OD LJ 21 4B O04 UE fe asl Bane teas 
OBCO 22 20 OF OF 19 23 21 06 10 1A 24 SE O7 11 iB BS Mae ee Bom Beh 
OGD 2F Of 12 10 26 20 09 13 1D 27 ai OR. 14° 36 25 Se Freeh dean le 


fr 
“ri 


OREO OG OU O00 DOO OU 00 O00 -O0 QO QO OO 00 WO OF OO OC 4.446% ek saw sea es 


OBFO 00 00 00 00 00 00 00 00 00 00 00 00 O00 00 09 090 


